00100	(DEFPROP DFUNC
00200	 (LAMBDA (L)
00300	  (LIST (QUOTE DEFPROP) (CAADR L) (MCONS (QUOTE LAMBDA) (CDADR L) (CDDR L)) (QUOTE EXPR)))
00400	 MACRO)
00500	
00600	(DEFPROP MCONS
00700		 (LAMBDA (L)
00800			 (COND ((NULL (CDDR L)) (CADR L))
00900			       (T (LIST (QUOTE CONS) (CADR L) (CONS (CAR L) (CDDR L))))))
01000		 MACRO)
01100	
01200	(DEFPROP CONV
01300	 (LAMBDA (L)
01400	  (PROG (DEV)
01500		(SETQ DEV (QUOTE DSK:))
01600	   LOOP	(COND ((NULL L) (RETURN NIL)))
01700		(COND ((%DEVP (CAR L)) (SETQ DEV (CAR L)) (SETQ L (CDR L))))
01800		(CONVFILE (LIST DEV (CAR L))
01900			  (LIST	(QUOTE DSK:)
02000				(CONS (COND ((ATOM (CAR L)) (CAR L)) (T (CAAR L)))
02100				      (QUOTE LSP))))
02200		(SETQ L (CDR L))
02300		(GO LOOP)))
02400	 FEXPR)
02500	
02600	(DFUNC (CONVFILE INFILE OUTFILE)
02700	       (PROG (EXPR)
02800		     (INC (EVAL (MCONS (QUOTE INPUT) (GENSYM) INFILE)))
02900		     (OUTC (EVAL (MCONS (QUOTE OUTPUT) (GENSYM) OUTFILE)))
03000		     (SCANSET)
03100		LOOP (SETQ EXPR (ERRSET (COMMAND)))
03200		     (PRINT (CAR EXPR))
03300		     (GO LOOP)
03400		END  (INC NIL T)
03500		     (OUTC NIL T)
03600		     (RETURN NIL)))
03700	
03800	(DEFPROP DATAERR
03900		 (LAMBDA (L) (PROG NIL (INC NIL T) (OUTC NIL T) (PRINT L)))
04000		 FEXPR)
04100